home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 April: Mac OS SDK / Dev.CD Apr 97 SDK1.toast / Development Kits (Disc 1) / Communications Toolbox / CTB Sample Code 1.0b16 / CTB Sources / Sources 2 / File Transfer Tool for CTB / floc.p < prev    next >
Encoding:
Text File  |  1989-10-06  |  1.3 KB  |  61 lines  |  [TEXT/MPS ]
  1. {************************************************************************************
  2. *
  3. *  Project Name:    FTTools
  4. *     File Name:    floc.p
  5. *       Authors:    Rob Neville, Alex Kazim, Carol Lee, Byron Han
  6. *          Date:    May 17, 1989
  7. *
  8. *   Description:    
  9. *
  10. *************************************************************************************
  11. *
  12. *    Revision History:
  13. *        5/17/89 - Original version by Rob Neville
  14. *        6/26/89 - Rev'd for b2 of Comm Toolbox
  15. *        7/24/89 - Rev'd for b4 of Comm Toolbox
  16. *
  17. ************************************************************************************}
  18.  
  19. UNIT myfloc;
  20.  
  21. INTERFACE
  22.  
  23. USES
  24.     MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf,
  25.     FixMath, Script, 
  26.     FileTransferTool,
  27.     FTIntf,
  28.     FTTool,
  29.     FTUtil,
  30.     CRMIntf,
  31.     CTBUtils;
  32.     
  33. function FLOC(hFT: FTHandle;msg: integer; p1,p2,p3: longint): longint;
  34.  
  35.  
  36. IMPLEMENTATION
  37.  
  38. {    ********************************    }
  39. {    Entry for Localization Interface    }
  40. {    ********************************    }
  41.  
  42. function FLOC(hFT: FTHandle;msg: integer;p1,p2,p3: longint): longint;
  43. TYPE
  44.     PtrPtr = ^Ptr;
  45.     
  46. VAR
  47.     outPtr:    Ptr;
  48.     procID: INTEGER ;
  49.     
  50. begin
  51.     outPtr := PtrPtr(p2)^;
  52.     procID := hFT^^.procID ;
  53.     case msg of
  54.         ftL2English:
  55.             floc := TranslateConfig( procID, Ptr(p1),outPtr,p3,verUS,ClassFT);
  56.         ftL2Intl:
  57.             floc := TranslateConfig( procID, Ptr(p1),outPtr,verUS,p3,ClassFT);
  58.     end; {case}
  59.     PtrPtr(p2)^ := outPtr;
  60. end; {cloc}
  61. end.